﻿Imports System.Data.SqlClient

Public Class Columns
    Public ColumnList As New List(Of Column)

    Public Sub New(ByVal Reader As SqlDataReader)
        Do While Reader.Read
            Dim Column As New Column(Reader)
            ColumnList.Add(Column)
        Loop
    End Sub
End Class